use List::Util qw(first max maxstr min minstr reduce shuffle sum); 
use Time::localtime;

# build a hash of arrays
for $group qw(spade hearts clubs diamonds)
{
    $HoA{$group} = [shuffle(1..13)]; 
}

# access and print the hash
foreach (keys %HoA)
{
    print "$_: ",join(",",@{ $HoA{$_}}  ),"\n";
}
